home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d18
/
vis082s.arc
/
XCONVERT.PAS
< prev
Wrap
Pascal/Delphi Source File
|
1991-04-17
|
3KB
|
129 lines
Program Emulex_to_Vision_Xfers_Convert;
Uses Configrt, Subs1, GenSubs, Gentypes, Crt;
Type EFrec=Record
sentby:mstr;
when,whenrated:longint;
filename:sstr;
path:String[50];
points:Integer;
FileSize:longint;
descrip:lstr;
downloaded:Integer;
pass:sstr;
unused:string[13];
revision:byte;
newfile,specialfile:Boolean
End;
EArec=Record
name,xmodemdir:lstr;
sponsor:mstr;
Password:sstr;
UploadHere,downloadhere:char;
unused:string[61];
slowdrive:boolean;
File_List:lstr;
Area_Type:Char;
level:Integer
End;
Var Areas:Integer;
Procedure AreaConvert;
Var EFile:File of EARec;
AFile:File of AreaRec;
EA:EARec;
A:AreaRec;
Begin
Assign (EFile,'AREADIR');
Reset (EFile);
If IOResult <> 0 Then Begin
TextAttr:=9;
Writeln ('AREADIR Not Found!');
Halt;
End;
Rename (EFile,'AREADIR.EMU');
Assign (AFile,'AREADIR');
Rewrite (AFile);
Seek (EFile,0);
Areas:=0;
While Not Eof(Afile) Do Begin
Areas:=Areas + 1;
Read (EFile,EA);
FillChar (A,Sizeof(A),0);
A.Name:=EA.Name;
A.XmodemDir:=EA.XmodemDir;
A.Sponsor:=EA.Sponsor;
A.Pass:=EA.Password;
A.UploadHere:=Upcase(EA.UploadHere) = 'Y';
A.DownloadHere:=Upcase(EA.DownloadHere) = 'Y';
A.Level:=EA.Level;
Write (AFile,A);
End;
TextAttr:=7;
Writeln ('Xfer Area List Converter Done!');
Close (EFile);
Close (AFile);
End;
Procedure FilesConvert;
Var EFile:File of EFRec;
UFile:File of UDRec;
EF:EFRec;
UD:UDRec;
Cnt:Integer;
Begin
If Areas < 1 Then Begin
Writeln ('No Transfer Areas to Convert!');
Halt;
End;
For Cnt:=1 to Areas Do Begin
Assign (EFile,'AREA'+Strr(Cnt));
Reset (EFile);
If IOResult <> 0 Then
Writeln ('Area '+Strr(Cnt)+' Not Found!') Else Begin
Rename (EFile,'AREA'+Strr(Cnt)+'.EMU');
Assign (UFile,'AREA');
Rewrite (UFile);
FillChar (UD,Sizeof(UD),0);
While not Eof (EFile) Do Begin
Read (EFile,EF);
UD.Sentby:=EF.Sentby;
UD.When:=EF.When;
UD.WhenRated:=EF.WhenRated;
UD.FileName:=EF.Filename;
UD.Path:=EF.Path;
UD.Points:=EF.Points;
UD.FileSize:=EF.FileSize;
UD.Descrip:=EF.Descrip;
UD.Downloaded:=EF.Downloaded;
UD.SpecialFile:=EF.SpecialFile;
End;
Close (EFile);
Close (UFile);
End;
End;
End;
Var K:Char;
Begin
ClrScr;
TextAttr:=9;
Writeln (#13#10#13#10'File Transfer Converter!');
Writeln ('From Emulex/2 to ViSiON');
TextAttr:=12; Writeln ('Written by: The Elemental');
Writeln;
Repeat
Write ('Run Conversion? ');
K:=Upcase(ReadKey);
Writeln;
Until K in [#13,'Y','N'];
If K <> 'Y' Then Exit;
AreaConvert;
FilesConvert;
End.